home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / TUNES.UNT < prev    next >
Text File  |  1996-07-04  |  13KB  |  216 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   TUNES   .UNT ║                      ╘════════════════─ ║ ║
  6.  │  │ LIBRARY     DAS-NB03.PBL ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10. $endif
  11.  
  12. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  13. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  14. $if 1
  15.   $CODE SEG        "DAS_NB03"
  16.   $EVENT            OFF
  17.   $ERROR ALL        OFF
  18.   $OPTIMIZE         SIZE
  19.   $OPTION GOSUB     OFF
  20.   $OPTION CNTLBREAK OFF
  21.   $OPTION SIGNED    OFF
  22.   $DEBUG  MAP       OFF
  23.   $DEBUG  PATH      OFF
  24.   $DEBUG  UNIT      OFF
  25.   $COMPILE          UNIT
  26. $endif
  27.  
  28.   EXTERNAL pSoundOFF%
  29.  
  30. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  31. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  32. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  33. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  34.  
  35. SUB PlayTune( BYVAL Which%, BYVAL Foreground% ) LOCAL PUBLIC
  36.   LOCAL Song$
  37.  
  38.   IF pSoundOff% THEN EXIT SUB
  39.  
  40.   SELECT CASE Which%
  41.     CASE 1                   ' 10 Little Indians (9.4 Sec.)
  42.       Song$ = "MNL10T120O4 FFFN0FFFN0A>CC<AFN0N0GGGN0GGGN0EGGECN0N0FFFN0FFFN0A>CC<AFN0GGGL4CCF."
  43.     CASE 2                   ' Mary Had A Little Lamb (6.8 Sec.)
  44.       Song$ = "MNL8T120O4 EDCDEEEN0 DDDN0 EGGN0  EDCDEEEL6N0L8 EDDEDC."
  45.     CASE 3                   ' OL' MacDonald (5.5 Sec.)
  46.       Song$ = "MNL4T120O4 GGGDEEDN0BBAAG.N0" ' DGGGDEEDN0BBAAG."
  47.     CASE 4                   ' Ittsy Bittsy Spider (6.7 Sec.)
  48.       Song$ = "MNL7T120O4 CFFFGA.AN0AGGAGF.N0 A.AA#>C.C<A#A#>C<A#A"
  49.     CASE 5                   ' A Tisket A Tasket (8.1 Sec.)
  50.       Song$ = "MNL7T120O4 GGE.AGE.FGGEAGE.N0 FGGEAGGEN0AGGEAGE."
  51.     CASE 6                   ' This Is The Way (7.25 Sec.)
  52.       Song$ = "MNL8T120O4 FFFFN0A>C.<AFN0 GGGN0EDCN0 FFFFN0A>C.<AFN0 L7 G.>C.<F."
  53.     CASE 7                   ' Row Row Row Your Boat (6.7 Sec.)
  54.       Song$ = "MNL6T120O4 C.C.CL8DEL7N0 EDEFGN0 >CC<GGEECN0 GFEDC"
  55.     CASE 8                   ' Twinkle Twinkle (9.6 Sec.)
  56.       Song$ = "MNL6T120O4 CCGGAAGN0 FFEEDDCN0 CCGGAAGN0 FFE.E.D.D.C."
  57.     CASE 9                   ' Old Smokie (8.5 Sec.)
  58.       Song$ = "MNL6T120O4 CCEG>C<A.N0 AFGAG.N0 GCEGGD.N0 DEFedc.N0"
  59.     CASE 10                   ' Matcho (10 Sec.)
  60.       Song$ = "MNL7T120O4 EDECN0 EDECN0 EDEC<GAGG>N0 EDECN0 EDECN0 <GAAG>N0 EDEC."
  61.     CASE 11                   ' Working On The Rr<Short> (3.4 Sec.)
  62.       Song$ = "MNL8T120O4 C.<G>C<G>CDE.C.N0" ' F.F.C.D.E."
  63.     CASE 12                   ' Working On The Rr<Long> (19.3 Sec.)
  64.       Song$ = "MNL8T120O4 C.<G>C<G>CDE.C.N0 F.F.C.D.E.N0N0" +_
  65.           "C.<G>C<G>CDE.C.N0 E.E.E.D.D.E.D.N0N0" +_
  66.           "D.DC#DEDC.<G.>N0 F.FFCCDD.E.N0  <A.B>C<B>C<AG.>C.N0 E.F.E.D.C."
  67.     CASE 13                   ' Dirge (3.3 Sec.)
  68.       Song$ = "MNL6T120O2 F.F.FF.A-.GGFF.E.F."
  69.     CASE 14                   ' So Long (5.7 Sec.)
  70.       Song$ = "MNL6T120O4 G.E.FGAGGEN0 F.D.EFGFFDN0"
  71.     CASE 15                   ' This Old Man (10.1 Sec.)
  72.       Song$ = "MNL6T120O4 GEGN0 GEGN0 AGFEDEFN0 L8EFGL6CCCCL8DEFGL6N0 GDDFEDC"
  73.     CASE 16                   ' Brahms Lullaby (10.9 Sec.)
  74.       Song$ = "MNL6T120O4 EEG.N0 EEG.N0 EG>C.<B.A.G.N0 DEF.D.N0 DEF.N0 DFBAG.B>C.<"
  75.     CASE 17                   ' Battle Hymn (34.7 Sec.)
  76.       Song$ = "MNL6T120O4 G.G.GGFEG.>C.DEEEDCN0 C<BAAAB>C<B>C<AGAGEGN0 GGGGGFEG>CDEEEDC.N0 C.D.D.C.<B.>C.<N0N0" +_
  77.           "MNL6T120O4 G.FE.G>C.D.L4E.C.<L6N0 A.B>C.<B>C.<AL4GE.L6N0 G.FE.G>C.D.L4E.C.<L6N0 L4>CDDC<B>C.<"
  78.     CASE 18                   ' Star Spangle (43.6 Sec.)
  79.       Song$ = "MLT100O3L8E-.L16CO2L4A-O3L4CE-L2A-O4L8C.O3L16B-L4A-CDL2E-L8E-E-O4L4C." +_
  80.           "O3L8B-L4A-L2GL8FGL4A-A-E-CO2L4A-O4L8CCL4CD-E-L2E-L8D-CO3L4B-O4L4CD-" +_
  81.           "L2D-L8D-D-L4C.O3L8B-L4A-L2GL8FL16G.L4A-CDL2E-L8E-E-L4A-A-L8A-GL4FFF" +_
  82.           "B-O4L8D-CO3L8B-A-L4A-L4G.P8L8E-E-O3L4A-.L8B-O4L8CD-L2E-O3L8A-B-O4L4" +_
  83.           "C.L8D-O3L4B-L2A-"
  84.     CASE 19                   ' Johnny Comes Marching (19.2 Sec.)
  85.       Song$ = "MNL6T120O4 C.CFFFGG#GG#FD#.CD#.N0 CFFFGG#GG#A#>C.<G#>C.<N0" +_
  86.           "G#>CCC<G#A#A#A#GG#G#G#FGGGN0 G#A#>C.<A#.G#.G.CFFFD#F."
  87.     CASE 20                   ' Daisy Daisy (7 Sec.)
  88.       Song$ = "MNL6T120O4 >C.<A.F.C.L7DE.FDFL6C.N0G.>C.<A.F.L7EFGGAL6G."
  89.     CASE 21                   ' Greek Calander (7.3 Sec.)
  90.       Song$ = "MNL6T120O4 GAB>C.<BAG.F.E.N0 GFEDN0 DEFGAGAG."
  91.     CASE 22                   ' Little Tea Pot (12.2 Sec.)
  92.       Song$ = "MNT120O4 L8CDEFG.>C<N0 A.>C.<G.N0 L7FFFEE.N0DDDCN0" +_
  93.           "L8 CDEFG.>C<N0 A.>C.<G.N0 L6FFFEE.N0DDDC."
  94.     CASE 23                   ' Brother John (12.2 Sec.)
  95.       Song$ = "MNT120O4 L8CDEC.N0CDEC.N0EFG.N0EFG.N0GAGFE.C.N0GAGFE.C.N0L6C.<G.>C.N0C.<G.>C."
  96.     CASE 24                   ' Bouree (12 Sec.)
  97.       Song$ = "MLL8T150O4DEF4EDC+4DEO3A4BO4C+DP10CO3B-A4GFE4FGAP16GF16E16D8P10" +_
  98.           "O4DEF4EDA4FAO3A4BO4C+DP10CO3B-A4GFP32F16G16F16E16F16.P32F2"
  99.     CASE 25                   ' Anvil (18 Sec.)
  100.       Song$ = "MNT200O3E2E4.E8E4.D8C4.O2A8G4.B8O3D4.F8E2C2E2E4.E8E4.D8C4.O2A8G4.B8" +_
  101.           "O3D4.F8E4C4E2C4P4D4P4O2B4O3C4O2A4B4E4P4P8G+8A8B8O3C4C4P8O2B8O3C8" +_
  102.           "D8E4E4P8D8E8F8G2.F8G16F16E4P4P2"
  103.     CASE 26                        ' Addams Family
  104.       Song$ = "O3T220L8CDEFP4O0L4FP8FP8O3L8DEF#GP4O1L4GP8GP8O3L8DEF#GP4DEF#GP4CDEFP4O1L4FP8FP8" +_
  105.           "P4T187O3L8CF.AF.DO2B-.O3GP4FE.GE.CO2A.O3FP4CF.AF.DO2B-.O3GP4FL64EFL8E.CD.EFP4" +_
  106.           "O3T220L8CDEFP4O0L4FP8FP8O3L8DEF#GP4O1L4GP8GP8O3L8DEF#GP4DEF#GP4CDEFP4O1L4FP8FP8" +_
  107.           "P4T187O3L8CF.AF.DO2B-.O3GP4FE.GE.CO2A.O3FP4CF.AF.DO2B-.O3GP4FL64EFL8E.CD.EFP2"
  108.     CASE 27                        ' Auld Lang Syne
  109.       Song$ = "T120MNO2L4CF.L8EL4FAG.L8FL4GAF.L8FL4AO3CL2D.L4DC.O2L8AL4AFG.L8FL4GL8AG" +_
  110.           "L4F.L8DL4DCL2F.O3L4DC.O2L8AP64L4AFG.L8FL4GO3DC.O2L8AP64L4AO3C" +_
  111.           "L2D.L4DC.O2L8AL4AFG.L8FL4GL8AGL4F.L8DL4DCL2F.P2"
  112.     CASE 28                        ' Beverly Hills Cop
  113.       Song$ = "T125MSL4O3FG#L8FL16FL8A#L8FD#L4FL4O4CL8O3FL16FL8O4C#CO3G#FO4CL8FO3L16FL8D#L16D#L8CL8GL4FP2" +_
  114.           "T125MSL4O3FG#L8FL16FL8A#L8FD#L4FL4O4CL8O3FL16FL8O4C#CO3G#FO4CL8FO3L16FL8D#L16D#L8CL8GL4FP2" +_
  115.           "O1L4FFL8D#L16D#L8D#L8CD#L4FFP8L16FL8FCFL4C#C#L8D#L16D#L8D#D#D#FP2L8FCO0L8A#G#L4F" +_
  116.           "O1L4FL8D#L16D#L8D#L8CD#L4FFP8L16FL8FCFL4C#C#L8D#L16D#L8D#D#D#FP2"
  117.     CASE 29                        ' Beverly Hillbillies
  118.       Song$ = "T120O2MST190L8CCFCFGAAFFL4GP32GP32C.P16" +_
  119.           "L8CL4EL8EFL4GL8FEFGFDL4C.P16L8CL4FFAL8GFB-AB->CL4D.P16" +_
  120.           "L8DL4CL8CCL4CL8CC<CDL4EF...P2"
  121.     CASE 30                        ' Deck the Halls
  122.       Song$ = "T250O3L2D.L4CO2L2BAGABGL4ABO3L4CO2L4AL2B.P4L4AL2GF+G.P4O3D." +_
  123.           "L4CO2L2BAGABGL4ABO3L4CO2L4AL2B.P4L4AL2GF+G.P4A.L4BO3L2C" +_
  124.           "O2AB.O3L4CL2DO2AL4BO3CL2DL4EF+L2GF+ED.P4D.L4CO2L2BAGABGL4ABO3CO2A" +_
  125.           "L2B.P4L4AL2GF+L1GP2"
  126.     CASE 31                        ' Flight of the Bumblebee
  127.       Song$ = "T160MLL16O5ED#DC#DC#CO4BO5CO4BB-AG#GF#FED#DC#DC#CO3BO4CO3BB-AG#GF#F" +_
  128.           "O3ED#DC#DC#CO2BO3ED#DC#DC#CO2BO3ED#DC#CFED#O3ED#DC#CC#DD#" +_
  129.           "O3ED#DC#CFED#O3ED#DC#CC#DD#O3ED#DC#DC#CO2BO3CC#DD#EFED#P2"
  130.     CASE 32                        ' Folk Song
  131.       Song$ = "T120MLL16O1AO3AO1AO3BL24O2EAO4C+O2EAO4DO1AO4C+EO1AO4C+EL32O2EAO4C+E" +_
  132.           "O2EAO4C+EL16O2DO4F+O2DO4DL24O2F+O4F+AO2F+O4DF+O1AO4C+EO2C+O4C+E" +_
  133.           "L16O2EP16AP16L16O2DO4F+O2DO4DL24O2F+O4F+AO2F+O4DF+O1AO4C+EO2C+O4C+E" +_
  134.           "L16O2EP16AP16L16EO4EO2EO4DL24O2G+BO4DO2G+BO4DL16O1AO4DO1AO4C+L24O2EAO4C+" +_
  135.           "L24O2EAO4C+L16O2EO4C+O2EO3BL24O2G+BO3BL24O2G+BO3BL16O1AO3AO2EP2"
  136.     CASE 33                        ' I'm A Little Teapot
  137.       Song$ = "T120O2MNL8CDEFL4GO3CO2AO3CO2L2GL4FFEEDDL2CO3L8CO2BAO3CO2L4BGAAL2GO3L4CO2AGFEDC" +_
  138.           "O3L8CDEFL4GO4CO3AO4CO3L2GL4FFEEDDL2CO4L8CO3BAO4CO3L4BGAAL2GO4L4CO3AGFEDCP2"
  139.     CASE 34                        ' James Bond Theme
  140.       Song$ = "MLL8T125O1B4EBO2C4O1EO2CC#4O1EO2C#C4O1EO2CO1B4EBO2C4O1EO2CC#4O1EO2C#C4O1EO2C" +_
  141.           "T150MNO3EF#16F#16F#F#3O2EEEMNO3EG16G16GG3O2F#F#F#MNO3EF#16F#16F#F#3O